home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #6 / Amiga Plus CD - 1996 - No. 06.iso / pd / daten / megabook / storage / dialdata / termite.mbrx < prev    next >
Text File  |  1996-06-27  |  863b  |  40 lines
  1. /*
  2. ** Termite Dialer for MegaBook 3
  3. ** By Tom Bampton
  4. **
  5. ** © 1996 Eden Software
  6. **
  7. ** This is the script run when the Dial Data option is selected from the
  8. ** Extras menu, please see the docs for creating your own script to dial
  9. ** through your terminal program.
  10. */
  11.  
  12. /*
  13.    Path to Termite, it's run if Termite isn't running
  14.    Change this to the path of your copy of Termite
  15. */
  16. TermitePath = 'Dh1:Termite/Termite'
  17.  
  18. parse arg Number
  19.  
  20. /* Check if Termite is running, if not, run it */
  21. if ~show('P', 'TERMITE.1') then do
  22.     address command
  23.     'run >nil: ' TermitePath
  24.     /* Wait for the ARexx port */
  25.     do 5 while ~show('P', 'TERMITE.1')
  26.         'sys:rexxc/waitforport TERMITE.1'
  27.     end
  28. end
  29.  
  30. address 'TERMITE.1'
  31. options results
  32.  
  33. /* 
  34.    Because Termite has no DIAL arexx command, we'll send the ATDT command
  35.    straight to the modem.
  36. */
  37.  
  38. ClearTerminal
  39. SerExpand 'ATDT' Number '\r'
  40.